home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 05.zip
/
BS1 part 5
/
WhiteBox_Final.adf
/
WhiteBox_Install
< prev
next >
Wrap
Text File
|
1992-04-24
|
1KB
|
94 lines
; install script for whitebox
(message "Welcome to WhiteBox(tm) by Quasar!
The program to save you $$$."
)
(set wb_locate
(askdir
(prompt "Please indicate where you want the WhiteBox drawer "
"to be loacated.")
(help @askdir-help)
(default @default-dest)
)
)
(set wb_devs
(askdir
(prompt "Please indicate your system DEVS directory ?")
(help @askdir-help)
(default @default-dest)
)
)
; make a drawer
(set wb_path (tackon wb_locate "WhiteBox"))
(makedir wb_path (infos))
(set @default-dest wb_path)
(set disk_space (getdiskspace wb_path))
(if (AND (< disk_space 110000) ( NOT res))
(
(message "You do not have enough space on your drive"
"to install the final version of WhiteBox.\n"
"WhiteBox requires .11 megs of free space to install."
)
(exit)
)
)
(
(
(askdisk
(prompt "Please insert the disk labeled \"WhiteBox_Final\"")
(help @askdisk-help)
(dest "WhiteBox_Final")
)
(copyfiles
(source "WhiteBox_Final:WhiteBox")
(dest wb_path)
(infos)
)
(copyfiles
(source "WhiteBox_Final:WhiteBox_Doc")
(dest wb_path)
(infos)
)
(copyfiles
(source "WhiteBox_Final:devs/WBox.prefs")
(dest wb_devs )
(infos)
)
(copyfiles
(source "WhiteBox_Final:devs/WBox.pointer")
(dest wb_devs )
(infos)
)
(copyfiles
(source "WhiteBox_Final:devs/WBox.phbook")
(dest wb_devs )
(infos)
)
(copyfiles
(source "WhiteBox_Final:libs/reqtools.library")
(dest wb_devs )
(infos)
)
)
)